use TestHelper;
use EntityBagTestHelper;
use ActionStatusTestHelper;

sub testStatusRef{
    my $result = shift;

    print "Probando tipo de STATUS\n";
    
    if(ref($result->status) eq "ActionStatus"){
	print "    OK: STATUS === ActionStatus\n";
    }else{
	print "--->ERROR: STATUS === ".ref($result->status)."\n";
    } 
}

sub testMsg{
    my ($result, $msg) = (shift, shift);

    print "Probando MESSAGE\n";
    if($result->msg eq $msg){
	print "    OK\n";
    }else{
	print "--->ERROR: ".$result->msg." eq $msg\n";
    }
}
1;
